home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / maze chase (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  80 lines
  1. 1 rem * maze chase @1988 by j.mattson *
  2. 10 ifa=.thena=1:poke53281,0:print"[147]":gosub61000:load"f.maze",8,1
  3. 20 ifa=1thena=2:load"m.maze",8,1
  4. 30 poke52,56:poke56,56:clr:su=51262:ln=51174:ld=51319:bg=49152:ts=51481:nm=7
  5. 40 i=rnd(-ti):gosub460:syssu:m(1)=int(rnd(1)*nm+1):fori=2to3
  6. 50 m(i)=int(rnd(1)*nm+1):k=.:forj=1toi-1:ifm(i)=m(j)thenk=1
  7. 60 next:ifk>.then50
  8. 70 next:fori=1to3:pokeln,m(i)+48:sysld:next:gosub120:sysbg
  9. 80 print"[147][150]play again? [[159]y[150]/[159]n[150]]"
  10. 90 geta$:ifa$="y"then40
  11. 100 ifa$<>"n"then90
  12. 110 goto620
  13. 120 print"[147] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]    [176][192][192]";
  14. 130 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]  {$7d}        ";
  15. 140 print"       {$7d}[152]{$7e}[146]  {$7d}[154][146]{$7d}            ";
  16. 150 print"   {$7d}  {$7d}               {$7d}[152] [151]:";
  17. 160 print":[152] [154][146]{$7d}               {$7d}  {$7d}   ";
  18. 170 print"            {$7d}[152] [151]  [152] [154][146]{$7d}       ";
  19. 180 print"        {$7d}  {$7d}             ";
  20. 190 print"  {$7d}[152] [151]  [152] [154][146]{$7d}               {$7d} ";
  21. 200 print" {$7d}               {$7d}[152] [151]::[152] [154][146]{$7d}  ";
  22. 210 print"             {$7d}  {$7d}        ";
  23. 220 print"       {$7d}[152] [151]  [152] [154][146]{$7d}            ";
  24. 230 print"   {$7d}  {$7d}               {$7d}[152] [151] ";
  25. 240 print" [152] [154][146]{$7d}               {$7d}  {$7d}   ";
  26. 250 print"            {$7d}[152] [151]::[152] [154][146]{$7d}       ";
  27. 260 print"        {$7d}  {$7d}             ";
  28. 270 print"  {$7d}[152] [151]  [152] [154][146]{$7d}               {$7d} ";
  29. 280 print" {$7d}               {$7d}[152] [151]  [152] [154][146]{$7d}  ";
  30. 290 print"             {$7d}  {$7d}        ";
  31. 300 print"       {$7d}[152] [151]::[152] [154][146]{$7d}            ";
  32. 310 print"   {$7d}  {$7d}               {$7d}[152] [151] ";
  33. 320 print" [152] [154][146]{$7d}               {$7d}  {$7d}   ";
  34. 330 print"            {$7d}[152] [151]  [152] [154][146]{$7d}       ";
  35. 340 print"        {$7d}  {$7d}             ";
  36. 350 print"  {$7d}[152] [151]::[152] [154][146]{$7d}               {$7d} ";
  37. 360 print" {$7d}               {$7d}[152] [151]  [152] [154][146]{$7d}  ";
  38. 370 print"             {$7d}  [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  39. 380 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][152] [151]  [152] [154][146][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  40. 390 print"{$60}{$60}{$60}[189]   [152]{$7f}                [151]:";
  41. 400 print":[152]                [146][169]     [151] [154]s";
  42. 410 print"core [146][155]     [151]          [154]score";
  43. 420 print" [146][155]     [151] [146]       [154]wound [171][158][171][171][171][171]";
  44. 430 print"[151] [146]  [154]  [159]  [153]  [151] [154]wound [171][158][171][171][171][171][151] [146]   ";
  45. 440 print"    [154]keys  [146][158]     [151]          ";
  46. 450 print"[154]keys  [146][158]     [151] [146]      [223]                                [146][169]";:return
  47. 460 poke53280,.:poke53281,.:poke53272,30
  48. 470 print"[147]"tab(10)"[159]             "
  49. 480 printtab(9)"[144] [159] [146][223] [146][169] [144] [159] [144] [159] [144]   [159] [144] [159] [144] "
  50. 490 printtab(9)" [159] [144]  [159] [144] [159]    [144] [159]  "
  51. 500 printtab(9)"[144] [159] [144] [159] [144] [159] [144] [159]  [144] [159] "
  52. 510 printtab(9)"[144] [159] [144] [159] [144] [159] [144] [159] [144] [159]   [144] [159]   "
  53. 520 printtab(9)"[144]          "
  54. 530 printtab(8)"[159]               "
  55. 540 printtab(7)"[144] [159] [144]   [159] [144] [159] [144] [159] [144] [159] [144] [159] [144]  [159] [144] "
  56. 550 printtab(7)" [159] [144] [159]   [144] [159]   [144] [159]   [144] [159]  "
  57. 560 printtab(7)"[144] [159] [144] [159] [144] [159] [144] [159] [144] [159] [144]   [159] [144] [159] "
  58. 570 printtab(7)"[144] [159]    [144] [159] [144] [159] [144] [159] [144] [159]    [144] [159]   "
  59. 580 printtab(7)"[144]              "
  60. 590 printtab(11)"[156]by [156]j.mattson [156]@ [156]'88"
  61. 600 printtab(11)"[150]press [150]fire [150]to [150]play";:systs:print"[147]";
  62. 610 fori=14592to14599:pokei,.:next:return
  63. 620 poke52,160:poke56,160:clr:poke53280,14:poke53281,6:print"[147][154]";:poke53272,21
  64. 630 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  65. 640 ifer=63then680
  66. 650 print"[147]":end
  67. 680 print"[147]returning to loadstar...":print"load"chr$(34);
  68. 690 print"hello connect"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]":poke631,13
  69. 700 poke632,28:poke633,13:poke198,3:new
  70. 61000 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  71. 61130 fori=1to3:print"                                      ":next
  72. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #59     "
  73. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  74. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  75. 61180 print"                                      "
  76. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  77. 61200 au$="[205][193][218][197][160][195][200][193][211][197]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  78. 61210 au$="[194]y [202]on [205]attson  ([195]) 1989":poke214,18:print
  79. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  80.